home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1999 January / PC Plus Super CD No55a (PCP-147A-1-99) (Disc 1) (1998).iso / linux / developers / visualtcl / windows / vtcl / demo / tclet-simple.tcl < prev    next >
Encoding:
Text File  |  1997-03-27  |  2.6 KB  |  94 lines

  1. #################################
  2. # GLOBAL VARIABLES
  3. #
  4. global big_global; set big_global {this is a global variable}
  5. global obj; set obj {1}
  6. global widget; 
  7.     set widget(rev,.01) {TEST}
  8.     set widget(rev,.01.02) {TEXT}
  9.     set widget(rev,.simple.f.e) {TEXT}
  10.     set widget(TEST) {.01}
  11.     set widget(rev,.simple.fra17.02) {TEXT}
  12.     set widget(rev,.simple.fra18.ent19) {TEXT}
  13.     set widget(TEXT) {.01.02}
  14.     set widget(rev,.simple.fra18.02) {TEXT}
  15.     set widget(rev,.top17.fra18.01) {TEXT}
  16.     set widget(rev,.top17.fra18) {TEST}
  17.     set widget(rev,.simple.fra21.01) {TEXT}
  18. global widget; 
  19.     set widget(rev,.01) {TEST}
  20.     set widget(rev,.01.02) {TEXT}
  21.     set widget(rev,.simple.f.e) {TEXT}
  22.     set widget(TEST) {.01}
  23.     set widget(rev,.simple.fra17.02) {TEXT}
  24.     set widget(rev,.simple.fra18.ent19) {TEXT}
  25.     set widget(TEXT) {.01.02}
  26.     set widget(rev,.simple.fra18.02) {TEXT}
  27.     set widget(rev,.top17.fra18.01) {TEXT}
  28.     set widget(rev,.top17.fra18) {TEST}
  29.     set widget(rev,.simple.fra21.01) {TEXT}
  30.  
  31. #################################
  32. # USER DEFINED PROCEDURES
  33. #
  34. proc init {argc argv} {
  35.  
  36. }
  37.  
  38. init $argc $argv
  39.  
  40.  
  41. proc main {argc argv} {
  42. global widget
  43. $widget(TEXT) insert end "forced text"
  44. }
  45.  
  46. proc Window {args} {
  47. global vTcl
  48.     set cmd [lindex $args 0]
  49.     set name [lindex $args 1]
  50.     set rest [lrange $args 2 end]
  51.     if {$name == "" || $cmd == ""} {return}
  52.     set exists [winfo exists $name]
  53.     switch $cmd {
  54.         show {
  55.             if {[info procs vTclWindow(pre)$name] != ""} {
  56.                 vTclWindow(pre)$name $rest
  57.             }
  58.             if {[info procs vTclWindow$name] != ""} {
  59.                 vTclWindow$name
  60.             }
  61.             if {[info procs vTclWindow(post)$name] != ""} {
  62.                 vTclWindow(post)$name $rest
  63.             }
  64.         }
  65.         hide    { if $exists {wm withdraw $name; return} }
  66.         iconify { if $exists {wm iconify $name; return} }
  67.         destroy { if $exists {destroy $name; return} }
  68.     }
  69. }
  70.  
  71. #################################
  72. # VTCL GENERATED GUI PROCEDURES
  73. #
  74. frame .01 \
  75.     -background #81d9d9 -borderwidth 1 -height 151 -relief raised -width 159 
  76. grid .01 \
  77.     -column 0 -row 0 -columnspan 1 -rowspan 1 -ipady 5 -padx 10 -pady 10 \
  78.     -sticky nesw 
  79. entry .01.02 \
  80.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* 
  81. grid .01.02 \
  82.     -column 0 -row 0 -columnspan 1 -rowspan 1 -padx 20 -pady 5 
  83.  
  84. button .01.03 \
  85.     -command {$widget(TEXT) delete 0 end} \
  86.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
  87.     -highlightthickness 0 -padx 9 -pady 3 -text Clear 
  88. grid .01.03 \
  89.     -column 0 -row 1 -columnspan 1 -rowspan 1 -pady 5 
  90.  
  91.  
  92.  
  93. main $argc $argv
  94.